home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / commodity / magiccx11.lha / MagicCX / Install-MagicCX / Install-MagicCX < prev    next >
Encoding:
Text File  |  1995-02-12  |  40.8 KB  |  1,822 lines
  1. ; $VER: Install-MagicCX 1.1 (30.09.94)
  2. ; Install script for MagicCX (Workbench 2.1 or higher)
  3.  
  4.  
  5. ;========================================================
  6. ; English strings
  7.  
  8. (set default_lang 256)
  9.  
  10. (set #bad-kick
  11. (cat "You must be using Kickstart 2.04 to use MagicCX. Aborting!"
  12. ))
  13.  
  14. (set #copying-mcxserver "Copying MagicCX Server program...")
  15. (set #copying-mcxprefs "Copying MagicCX Preferences program...")
  16.  
  17. (set #which-language-help
  18. (cat "\nThe Amiga can be operated in many different"
  19.         " languages. If you want MagicCX windows to"
  20.         " use the same language as the Amiga Workbench"
  21.         " then a catalog file must be copied to your"
  22.         " system disk for each language supported.\n\n"
  23.         "To reduce the amount of space consumed by the"
  24.         " language files, you can select to have only the"
  25.         " files of specific languages copied.\n\n"
  26.         "Simply check the boxes of the languages you wish"
  27.         " to have available on your system.\n\n"
  28.         @askoptions-help
  29. ))
  30.  
  31. (set #install-msg
  32. (cat "\n\MagicCX installation script.\n"
  33.          "This script installs MagicCX on your Amiga.\n\n"
  34.          "Read the Documentation files for\n"
  35.          "more information on the distribution.\n"
  36.          "MagicCX © 1994 Kai Iske\n"
  37.          "All rights reserved."
  38. ))
  39.  
  40. (set #ask-remove "There is an old version of MagicCX installed\nDo you want to deinstall it\nor simply install the new version?")
  41. (set #remove-ok "Deinstall")
  42. (set #remove-no "Install")
  43. (set #exit-deinstall "MagicCX deinstalled\n\nRemember to remove the MagicCX: Assignment from\nyour User-StartUp file\n\nThere might be some ARexx Scripts left, too")
  44.  
  45. (set #install-type "Which type of installation do you prefer?")
  46. (set #install-type-help
  47. (cat    "The \"Compact\" installation will create a directory\n"
  48.     "MagicCX within a specified directory and will then\n"
  49.     "Install all of MagicCX`s components to this directory.\n\n"
  50.     "The \"Spread\" method will ask for the location of\n"
  51.     "every component of MagicCX. This way you may choose\n"
  52.     "the prefered locations."
  53. ))
  54. (set #install-compact "Compact")
  55. (set #install-spread "Spread")
  56.  
  57. (set #icon-types "Which type of icons would you like to install?")
  58. (set #icon-magicwb "MagicWB; 8 colors")
  59. (set #icon-normal "Normal; 4 colors")
  60.  
  61. (set #magiccx-drawer "Please select a directory in which the directory\ncalled MagicCX will be created")
  62. (set #spread-drawer "Please select a directory for\n%s")
  63.  
  64. (set #create-magiccx-dir "\n\nInstalling MagicCX to\n\n")
  65.  
  66. (set #unpacking "\n\nUnpacking %s to RAM:")
  67. (set #installing "\n\nInstalling %s")
  68.  
  69. (set #install-wbstart "\n\nInstalling Server launcher icon")
  70. (set #install-atboot "Do you want to launch MagicCX at System Startup?")
  71. (set #install-wbstartboot "\n\nInstalling Server launcher icon to SYS:WBStartUp")
  72. (set #do-install-key "\n\nWelcome registered user!\n\nThanks for your support")
  73.  
  74. (set #old-asl "\n\nYou are using a version of asl.library\nolder than V38. For some purposes, MagicCX requires asl.library V38 or reqtool.library V38\nI will now try to install reqtool.library V38")
  75.  
  76. (set #sasgregister "SASG Registration program")
  77.  
  78. (set #do-install-manager
  79. (cat    "\nYou are running OS 3.x or better.\n"
  80.     "This enables you to use a Modules Manager for\n"
  81.     "easier access to MagicCX`s modules/blankers.\n"
  82.     "You can install/deinstall modules/blankers using\n"
  83.     "this window driven Modules Manager.\n\n"
  84.     "Would you like to install the Modules Manager?"
  85. ))
  86.  
  87. (set #select-modules-1 "Please select which modules to install")
  88.  
  89. (set #create-modules-dir "Creating Modules directory")
  90. (set #create-modules-dir2 "Creating Modules storage directory")
  91.  
  92. (set #modules "Modules")
  93.  
  94. (set #awedge-module "Which AssignWedge Module to install?")
  95. (set #awedge-module-help
  96. (cat    "The standard module uses Intuition Requesters,\n"
  97.     "while the ReqTools version utilizes reqtools.library\n"
  98.     "to create the Requesters"
  99. ))
  100.  
  101. (set #install-scripts "Would you like to install some example\nScripts for the RCS Module?")
  102. (set #select-scripts "Please select scripts you want\nto install for the following environments")
  103. (set #select-scriptdir "Please select a directory for the scripts")
  104. (set #scripts "Scripts")
  105. (set #install-ced "Installing scripts for CygnusED")
  106. (set #install-ttx "Installing scripts for TurboText")
  107. (set #install-ged "Installing scripts for GoldED")
  108. (set #install-rexx "Installing scripts for Shell")
  109.  
  110. (set #do-install-rcs2hst "Would you like to install the RCS2HST utility for use with RCS?")
  111.  
  112. (set #select-blankers-1 "Please select which blankers to install")
  113.  
  114. (set #create-blankers-dir "Creating Blankers directory")
  115. (set #create-blankers-dir2 "Creating Blankers storage directory")
  116. (set #blankers "Blankers")
  117.  
  118. (set #install-lang "Which languages should be installed?")
  119.  
  120. (set #EnglishLan "English")
  121. (set #GermanLan "German")
  122. (set #DanishLan "Danish")
  123. (set #SwedishLan "Swedish")
  124. (set #FrenchLan "French")
  125. (set #ItalianLan "Italian")
  126. (set #germanloc "Unpacking German locale to LOCALE:")
  127. (set #danishloc "Unpacking Danish locale to LOCALE:")
  128. (set #swedishloc "Unpacking Swedish locale to LOCALE:")
  129. (set #frenchloc "Unpacking French locale to LOCALE:")
  130. (set #italianloc "Unpacking Italian locale to LOCALE:")
  131.  
  132. (set #own-lang
  133. (cat    "\n\nIf you want to create own versions of\n"
  134.     "the catalogs please have a look at the\n"
  135.     "distributions Locale directory. You will\n"
  136.     "find the .ct files there. If you\n"
  137.     "have created you own translations, please\n"
  138.     "don`t keep it a secret"
  139. ))
  140.  
  141. (set #do-install-doc "Would you like to install MagicCX`s documentation?")
  142. (set #create-docs-dir "Creating documentation directory")
  143. (set #doc-type "Which documentation formats would you like to install?")
  144. (set #doc-lang "Which language do you prefer for the documentation?")
  145. (set #amigaguidedoc "AmigaGuide documentation")
  146.  
  147. (set #add-assign "Adding Assign MagicCX: to your User-StartUp file\nCreating the Assign MagicCX: now!")
  148. (set #add-env "Adding ENVVARS to your User-StartUp file")
  149. (set #adding-assign "Now adding Assign to your User-StartUp file")
  150. (set #adding-env "Now ENVVARS to your User-StartUp file")
  151. (set #adding-help "This Assign MUST exist for MagicCX to work")
  152.  
  153. (set #old-magiccx
  154. (cat    "WARNING: An old version of MagicCX is running!\n"
  155.     "         Due to changes to several support files\n"
  156.     "         this could lead to problems when starting\n"
  157.     "         parts of the new version. Please either\n"
  158.     "         quit all parts of the old MagicCX or simply\n"
  159.     "         reboot your system."
  160. ))
  161.  
  162. (set #exit-msg "Have Fun using MagicCX\n\nAnd don`t forget; It`s Shareware!")
  163.  
  164.  
  165. ;========================================================
  166. ; German strings
  167.  
  168. (if (= @language "deutsch")
  169. (
  170. (set default_lang 1)
  171.  
  172. (set #bad-kick
  173. (cat "Sie müssen Kickstart 2.04 benutzen, um MagicCX zu benutzen. Abbruch!"
  174. ))
  175.  
  176. (set #copying-mcxserver "Kopiere MagicCX Server Programm...")
  177. (set #copying-mcxprefs "Kopiere MagicCX Preferences Programm...")
  178.  
  179. (set #which-language-help
  180. (cat "\nDer Amiga kann in vielen verschiedenen Sprachen betrieben werden. "
  181.         "Wenn Sie wollen, daß die MagicCX Fenster die gleiche Sprache "
  182.         "wie die Amiga-Workbench benutzen, müssen für jede zu installierende Sprache "
  183.         "zwei Dateien auf Ihre Festplatte kopiert werden.\n\n"
  184.         "Um den Platz in Grenzen zu halten, den die Sprachentreiberdateien "
  185.         "einnehmen, können Sie wählen, nur die Treiber für bestimmte "
  186.         "Sprachen zu installieren.\n\n"
  187.         "Klicken Sie einfach die Felder derjenigen Sprachen an, die Sie in "
  188.         "Ihrem System verfügbar haben wollen, so daß diese Sprachen mit "
  189.         "einem Häkchen markiert sind.\n\n"
  190.         @askoptions-help
  191. ))
  192.  
  193. (set #install-msg
  194. (cat "\n\nMagicCX Installationsskript.\n"
  195.         "Diese Befehlsdatei installiert MagicCX auf Ihrem Amiga.\n\n"
  196.         "Lesen Sie die Dokumentationen für\n"
  197.         "weitere Informationen über die Weitergeabe.\n"
  198.         "MagicCX © 1994 Kai Iske\n"
  199.         "All rights reserved."
  200. ))
  201.  
  202. (set #ask-remove "Es wurde eine alte Version von MagicCX gefunden\nMöchten Sie diese Version deinstallieren\noder einfach die neue Version installieren?")
  203. (set #remove-ok "Deinstallieren")
  204. (set #remove-no "Installieren")
  205. (set #exit-deinstall "MagicCX deinstalliert\n\nBedenken Sie das MagicCX: Assign aus\nIhrer User-StartUp Datei zu entfernen\n\nEs könnten auch noch ARexx Skript vorhanden sein")
  206.  
  207. (set #install-type "Welchen Installationstyp wünschen Sie?")
  208. (set #install-type-help
  209. (cat    "\"Kompakte\" Installation erzeugt ein Verzeichnis\n"
  210.     "MagicCX im angegebenen Verzeichnis und wird dann\n"
  211.     "alle Komponenten von MagicCX dorthin installieren.\n\n"
  212.     "Die \"Verteilte\" Methode fragt für jede Komponente\n"
  213.     "nach einem Verzeichnis und installiert sie dort. Auf\n"
  214.     "diese Weise können Sie die bevorzugten Plätze angeben."
  215. ))
  216. (set #install-compact "Kompakt")
  217. (set #install-spread "Verteilt")
  218.  
  219. (set #icon-types "Welche Typen der Icons möchten Sie installieren?")
  220. (set #icon-magicwb "MagicWB; 8 Farben")
  221. (set #icon-normal "Normal; 4 Farben")
  222.  
  223. (set #magiccx-drawer "Bitte wählen Sie ein Verzeichnis, in dem\ndas Verzeichnis MagicCX erzeugt werden soll")
  224. (set #spread-drawer "Bitte wählen Sie ein Verzeichnis für\n%s")
  225.  
  226. (set #create-magiccx-dir "\n\nInstalliere MagicCX nach\n\n")
  227.  
  228. (set #unpacking "Entpacke %s nach RAM:")
  229. (set #installing "Installiere %s")
  230.  
  231. (set #install-wbstart "\n\nInstalliere Server Starter Icon")
  232. (set #install-atboot "Möchten Sie MagicCX beim Hochfahren des System starten?")
  233. (set #install-wbstartboot "\n\nInstalliere Server Starter Icon nach SYS:WBStartUp")
  234. (set #do-install-key "\n\nWillkommen registrierter User!\n\nVielen Dank für die Unterstützung")
  235.  
  236. (set #old-asl "\n\nSie benutzen eine ältere\nVersion der asl.library als V38\nFür einige Zwecke benötigt MagicCX asl.library V38 oder reqtool.library V38\nIch werde nun versuchen reqtool.library V38 zu installieren")
  237.  
  238. (set #sasgregister "SASG Registrationsprogramm")
  239.  
  240. (set #do-install-manager
  241. (cat    "\nSie benutzen OS 3.x oder besser.\n"
  242.     "Dies ermöglicht den Modul Manager zu nutzen\n"
  243.     "für einfacheren Zugriff auf die Module/Blanker.\n"
  244.     "Sie können mit diesem fenstergesteuerten Modul\n"
  245.     "Manager Module/Blanker leicht de-/installieren.\n\n"
  246.     "Möchten Sie den Modul Manager installieren?"
  247. ))
  248.  
  249. (set #select-modules-1 "Bitte wählen Sie die zu installierenden Module")
  250.  
  251. (set #create-modules-dir "Erzeuge Modul Verzeichnis")
  252. (set #create-modules-dir2 "Erzeuge Modul Lagerverzeichnis")
  253.  
  254. (set #modules "Module")
  255.  
  256. (set #awedge-module "Welches AssignWedge Modul soll installiert werden?")
  257. (set #awedge-module-help
  258. (cat    "Das Standardmodul benutzt Intuition Requesters,\n"
  259.     "während die ReqTools Version reqtools.library\n"
  260.     "verwendet, um Requester zu erzeugen"
  261. ))
  262.  
  263. (set #install-scripts "Möchten Sie einige Beispielskripte\nfür das RCS Modul installieren?")
  264. (set #select-scripts "Bitte wählen Sie, welche Skripte\nSie für welche Umgebung installieren möchen")
  265. (set #select-scriptdir "Bitte wählen Sie ein Verzeichnis für die Skripte")
  266. (set #scripts "Skripte")
  267. (set #install-ced "Installiere Skripte für CygnusED")
  268. (set #install-ttx "Installiere Skripte für TurboText")
  269. (set #install-ged "Installiere Skripte für GoldED")
  270. (set #install-rexx "Installiere Skripte für Shell")
  271.  
  272. (set #do-install-rcs2hst "Möchten Sie das RCS2HST Hilfsprogramm installieren?")
  273.  
  274. (set #select-blankers-1 "Bitte wählen Sie, welche Blanker installiert werden sollen")
  275.  
  276. (set #create-blankers-dir "Ergzeuge Blanker Verzeichnis")
  277. (set #create-blankers-dir2 "Erzeuge Blankers Lagerverzeichnis")
  278. (set #blankers "Blanker")
  279.  
  280. (set #install-lang "Welche Sprachen sollen installiert werden?")
  281.  
  282. (set #EnglishLan "Englisch")
  283. (set #DanishLan "Dänisch")
  284. (set #GermanLan "Deutsch")
  285. (set #SwedishLan "Schwedisch")
  286. (set #FrenchLan "Französisch")
  287. (set #ItalianLan "Italienisch")
  288. (set #germanloc "Entpacke Deutsche Locale nach LOCALE:")
  289. (set #danishloc "Entpacke Dänische Locale nach LOCALE:")
  290. (set #swedishloc "Entpacke Schwedische Locale nach LOCALE:")
  291. (set #frenchloc "Entpacke Französiche Locale nach LOCALE:")
  292. (set #italianloc "Entpacke Italienische Locale nach LOCALE:")
  293.  
  294. (set #own-lang
  295. (cat    "\n\nWenn Sie eigene Versionen der Kataloge\n"
  296.     "erstellen wollen, werfen Sie bitte einen\n"
  297.     "Blick in das Locale Verzeichnis der Distribution\n"
  298.     "Dort finden Sie die .ct Dateien. Wenn Sie\n"
  299.     "eigene Übersetzungen erzeugt haben, bitte,\n"
  300.     "machen Sie kein Geheimnis daraus"
  301. ))
  302.  
  303. (set #do-install-doc "Möchten Sie die Dokumentation zu MagicCX installieren?")
  304. (set #create-docs-dir "Erzeuge Verzeichnis für Dokumentationen")
  305. (set #doc-type "Welche Dokumentenformate möchten Sie installieren?")
  306. (set #doc-lang "Welche Sprache bevorzugen Sie für die Anleitung?")
  307. (set #amigaguidedoc "AmigaGuide Dokumentation")
  308.  
  309. (set #add-assign "Füge MagicCX: Assign Ihrer User-StartUp Datei zu\nErzeuge das MagicCX: Assign jetzt!")
  310. (set #add-env "Füge ENVVARS Ihrer User-StartUp Datei zu")
  311. (set #adding-assign "Nun wird das Assign Ihrere User-StartUp Datei zugefügt.")
  312. (set #adding-env "Nun werden die ENVVARS Ihrere User-StartUp Datei zugefügt.")
  313. (set #adding-help "Dieses Assign MUß existieren!")
  314.  
  315. (set #old-magiccx
  316. (cat    "WARNUNG: Eine alte Version von MagicCX läuft!\n"
  317.     "         Wegen Änderungen an vielen Support\n"
  318.     "         Dateien, könnte es zu Problemen kommen,\n"
  319.     "         wenn Sie die neuen Version starten.\n"
  320.     "         Bitte stoppen Sie alle Teile der alten\n"
  321.     "         Version, oder booten Sie Ihr System neu."
  322. ))
  323.  
  324. (set #exit-msg "Haben Sie Spaß mit MagicCX\n\nUnd nicht vergessen; Es ist Shareware!")
  325. ))
  326.  
  327.  
  328. ;========================================================
  329. ; Swedish strings
  330.  
  331. (if (= @language "svenska")
  332. (
  333. (set default_lang 2)
  334.  
  335. (set #bad-kick
  336. (cat "Du måste ha minst Kickstart 2.04 för att kunna använda MagicCX. Avbryter!"
  337. ))
  338.  
  339. (set #copying-mcxserver "Kopierar MagicCX Server program...")
  340. (set #copying-mcxprefs "Kopierar MagicCX Inställningsprogram...")
  341.  
  342. (set #which-language-help
  343. (cat "\nAmigan kan köras i många olika språk."
  344.          " Om du vill att MagicCX's fönster skall använda"
  345.          " samma språk som Amigan's Workbench så måste"
  346.          " en katalogfilför varje språk som skall"
  347.          " användas kopieras till din systemdisk.\n\n"
  348.          "För att minska det utrymme som krävs för "
  349.          " språkfilerna, kan du välja att bara få"
  350.          " vissa valda språkfiler kopierade.\n\n"
  351.          "Markera helt enkelt de språk som du vill"
  352.          " ha tillgängliga på ditt system.\n\n"
  353.          @askoptions-help
  354. ))
  355.  
  356. (set #install-msg
  357. (cat "\n\MagicCX installationsskript.\n"
  358.          "Denna skript installerar MagicCX på din Amiga.\n\n"
  359.          "Läs Dokumentationsfilerna för\n"
  360.          "mera information om programpaketet.\n"
  361.          "MagicCX © 1994 Kai Iske\n"
  362.          "All rights reserved."
  363. ))
  364.  
  365. (set #ask-remove
  366. (cat "Det finns en äldre version av MagicCX installerad\n"
  367.          "Vill du ta bort den\n"
  368.          "eller helt enkelt installera den nya versionen?"
  369. ))
  370. (set #remove-ok "Ta bort")
  371. (set #remove-no "Installera")
  372. (set #exit-deinstall
  373. (cat "MagicCX borttagen\n\n"
  374.          "Kom ihåg att ta bort MagicCX: Assignen från\n"
  375.          "din User-StartUp fil\n\n"
  376.          "Det kan också finnas AREXX-filer kvar"
  377. ))
  378.  
  379. (set #install-type "Vilken typ av installation föredrar du?")
  380. (set #install-type-help
  381. (cat "Den \"Kompakta\" installationen skapar en MagicCX-\n"
  382.          "katalog på angivet ställe och installerar sedan\n"
  383.          "alla MagicCX`s delar i denna katalog.\n\n"
  384.          "Den \"Spridda\" metoden frågar efter platsen för\n"
  385.          "varje del av MagicCX. På så vis kan du välja\n"
  386.          "önskad plats för varje komponent."
  387. ))
  388. (set #install-compact "Kompakt")
  389. (set #install-spread "Spridd")
  390.  
  391. (set #icon-types "Vilken typ av ikoner vill du installera?")
  392. (set #icon-magicwb "MagicWB; 8 färger")
  393. (set #icon-normal "Normal; 4 färger")
  394.  
  395. (set #magiccx-drawer "Välj en katalog, i vilken\nMagicCX-katalogen kommer att skapas")
  396. (set #spread-drawer "Välj en katalog för\n%s")
  397.  
  398. (set #create-magiccx-dir "\n\nInstallerar MagicCX i\n\n")
  399.  
  400. (set #unpacking "\n\nPackar upp %s i RAM:")
  401. (set #installing "\n\nInstallerar %s")
  402.  
  403. (set #install-wbstart "\n\nInstallerar Server start-ikonen")
  404. (set #install-atboot "Vill du starta MagicCX när datorn startar?")
  405. (set #install-wbstartboot "\n\nInstallerar Server start-ikonen i SYS:WBStartUp")
  406. (set #do-install-key "\n\nVälkommen registrerade användare!\n\nTack för ditt stöd!")
  407.  
  408. (set #old-asl
  409. (cat "\n\nDu använder en version av asl.library\n"
  410.          "som är äldre än V38.\n"
  411.          "För några ändamål behöver MagicCX asl.library V38 eller reqtool.library V38\n"
  412.          "Jag kommer nu att försöka installera reqtool.library V38"
  413. ))
  414.  
  415. (set #sasgregister "SASG Registreringsprogram")
  416.  
  417. (set #do-install-manager
  418. (cat "\nDu använder OS 3.x eller bättre.\n"
  419.          "Detta tillåter dig att använda Modules Manager för"
  420.          " enklare hantering av MagicCX`s moduler/skärmsläckare.\n"
  421.          "Du kan installera/ta bort moduler/skärmsläckare med"
  422.          " hjälp av den fönsterstyrda Modules Manager.\n\n"
  423.          "Vill du installera Modules Manager?"
  424. ))
  425.  
  426. (set #select-modules-1 "Välj vilka moduler som skall installeras")
  427.  
  428. (set #create-modules-dir "Skapar Modul katalogen")
  429. (set #create-modules-dir2 "Skapar Modul-förråd katalogen")
  430.  
  431. (set #modules "Moduler")
  432.  
  433. (set #awedge-module "Vilken AssignWedge Modul skall installeras?")
  434. (set #awedge-module-help
  435. (cat "Standardmodulen använder Intuitions väljare, medan"
  436.          " ReqTools-versionen använder reqtools.library för"
  437.          " att skapa väljare."
  438. ))
  439.  
  440. (set #install-scripts "Vill du installera några exampel-skriper för RCS Modulen?")
  441. (set #select-scripts "Välj vilka skriptfiler du vill installera för följande omgivningar")
  442. (set #select-scriptdir "Välj en katalog för skriptfilerna")
  443. (set #scripts "Skriptfiler")
  444. (set #install-ced "Installerar skriptfiler för CygnusED")
  445. (set #install-ttx "Installerar skriptfiler för TurboText")
  446. (set #install-ged "Installerar skriptfiler för GoldED")
  447. (set #install-rexx "Installerar skriptfiler för Shell")
  448.  
  449. (set #do-install-rcs2hst "Vill du installera RCS2HST för att använda med RCS?")
  450.  
  451. (set #select-blankers-1 "Välj vilka skärmsläckare som skall installeras")
  452.  
  453. (set #create-blankers-dir "Skapar skärmsläckar katalogen")
  454. (set #create-blankers-dir2 "Skapar skärmsläckar-förråd katalogen")
  455. (set #blankers "Skärmsläckare")
  456.  
  457. (set #install-lang "Vilka språk skall installeras?")
  458. (set #EnglishLan "Engelska")
  459. (set #GermanLan "Tyska")
  460. (set #DanishLan "Danska")
  461. (set #SwedishLan "Svenska")
  462. (set #FrenchLan "Franska")
  463. (set #ItalianLan "Italienska")
  464. (set #germanloc "Packar upp Tyska Locale till LOCALE:")
  465. (set #danishloc "Packar upp Danska Locale till LOCALE:")
  466. (set #swedishloc "Packar upp Svenska Locale till LOCALE:")
  467. (set #frenchloc "Packar upp Franska Locale till LOCALE:")
  468. (set #italianloc "Packar upp Italienska Locale till LOCALE:")
  469. (set #own-lang
  470. (cat "\n\nOm du vill göra egna versioner av språkfilerna,"
  471.          " så ta en titt i paketets Locale katalog. Du hittar"
  472.          " .ct filerna där. Om du har gjort en egen"
  473.          " översättning, håll det inte hemligt!"
  474. ))
  475.  
  476. (set #do-install-doc "Vill du installera MagicCX`s dokumentation?")
  477. (set #create-docs-dir "Skapar dokumentationskatalog")
  478. (set #doc-type "Vilka dokumentationsformat vill du installera?")
  479. (set #doc-lang "På vilket språk vill du ha dokumentationen?")
  480. (set #amigaguidedoc "AmigaGuide dokumentation")
  481.  
  482. (set #add-assign
  483. (cat "Lägger till Assign MagicCX: till din User-StartUp fil\n"
  484.          "Skapar Assign MagicCX: nu!"
  485. ))
  486. (set #add-env "Lägger till ENVVARS till din User-StartUp fil")
  487. (set #adding-assign "Lägger nu till Assign till din User-StartUp fil")
  488. (set #adding-env "Lägger nu till ENVVARS till din User-StartUp fil")
  489. (set #adding-help "Denna Assign MÅSTE finnas för att MagicCX skall fungera")
  490.  
  491. (set #old-magiccx
  492. (cat "VARNING: En gammal version av MagicCX går!\n"
  493.          "         På grund av ändringar i flera supportfiler\n"
  494.          "         kan detta leda till problem när vissa delar\n"
  495.          "         av den nya versionen startas. Avsluta antingen\n"
  496.          "         alla delar av den gamla MagicCX eller boota\n"
  497.          "         helt enkelt om din dator."
  498. ))
  499.  
  500. (set #exit-msg "Ha trevligt med MagicCX\n\nOch glöm inte; Det är Shareware!")
  501. ))
  502.  
  503.  
  504. ;========================================================
  505. ; Check system we`re running on
  506.  
  507.  
  508. (if (< (/ (getversion) 65536) 37)
  509. (
  510.         (abort #bad-kick)
  511. ))
  512.  
  513.  
  514. ;========================================================
  515. ; Initial message
  516.  
  517. (message #install-msg)
  518.  
  519.  
  520. ;========================================================
  521. ; Set default directory
  522.  
  523. (set MCXBase "Work:")
  524.  
  525.  
  526. ;========================================================
  527. ; Deinstall?
  528.  
  529. (if (NOT (= (getassign "MagicCX") ""))
  530. (
  531.         ;
  532.         ; Get directory user installed in first place
  533.         ;
  534.  
  535.     (set MCXBase (getassign "MagicCX"))
  536.     (set MCXBase (pathonly MCXBase))
  537.  
  538.     (if
  539.         (askbool
  540.             (prompt #ask-remove)
  541.             (help @askbool-help)
  542.             (choices
  543.                 #remove-ok
  544.                 #remove-no
  545.             )
  546.         )
  547.     (
  548.  
  549.             ; Get full name of directory
  550.  
  551.         (set MCXDirInfo ("\"%s.info\"" (getassign "MagicCX")))
  552.  
  553.             ;
  554.             ; Start deinstallation
  555.             ;
  556.  
  557.         (run "Assign MagicCX: REMOVE")
  558.  
  559.             ; Delete directories
  560.  
  561.         (run "Delete " ("\"%s/%s\"" MCXDir "Modules") " ALL")
  562.         (run "Delete " ("\"%s/%s\"" MCXDir "ModuleStorage") " ALL")
  563.         (run "Delete " ("\"%s/%s\"" MCXDir "Prefs") " ALL")
  564.         (run "Delete " ("\"%s/%s\"" MCXDir "Server") " ALL")
  565.         (run "Delete " ("\"%s/%s\"" MCXDir "WBStartUp") " ALL")
  566.         (run "Delete " ("\"%s/%s\"" MCXDir "Docs") " ALL")
  567.         (run "Delete " ("\"%s/%s\"" MCXDir "Tools") " ALL")
  568.         (run "Delete " ("\"%s/%s\"" MCXDir "libs") " ALL")
  569.  
  570.             ; Delete infos
  571.  
  572.         (run "Delete " ("\"%s/%s\"" MCXDir "#?.info"))
  573.  
  574.             ; Try to delete base directory
  575.  
  576.         (run "Delete " ("\"%s\"" MCXDir))
  577.         (run "Delete " MCXDirInfo)
  578.  
  579.         (run "Delete LOCALE:Catalogs/deutsch/MagicCX ALL")
  580.         (run "Delete SYS:WBStartUp/MCX")
  581.         (run "Delete SYS:WBStartUp/MCX.info")
  582.         (run "Delete ENVARC:MagicCX ALL")
  583.         (run "Delete ENV:MagicCX ALL")
  584.  
  585.         (message #exit-deinstall)
  586.         (exit (quiet))
  587.     ))
  588. ))
  589.  
  590.  
  591. ;========================================================
  592. ; Get directories where to install MagicCX to
  593.  
  594.  
  595. (set InstallType
  596.     (askchoice
  597.         (prompt #install-type)
  598.         (help #install-type-help)
  599.         (choices
  600.             #install-compact
  601.             #install-spread
  602.         )
  603.         (default 0)
  604.     )
  605. )
  606.  
  607. (if (= InstallType 0)
  608. (
  609.     (set MCXBase
  610.         (askdir
  611.             (prompt #magiccx-drawer)
  612.             (default MCXBase)
  613.             (help @askdir-help)
  614.         )
  615.     )
  616.  
  617.     (set MCXDir (tackon MCXBase "MagicCX"))
  618.     (set ServerDir (tackon MCXDir "Server"))
  619.     (set PrefsDir (tackon MCXDir "Prefs"))
  620.     (set ModulesDir (tackon MCXDir "Modules"))
  621.     (set ModStoreDir (tackon MCXDir "ModuleStorage"))
  622.     (set DocsDir (tackon MCXDir "Docs"))
  623.     (set ModManDir (tackon MCXDir "Tools"))
  624.     (set RCS2HSTDir (tackon MCXDir "Tools"))
  625.     (set RegisterDir (tackon MCXDir "Tools"))
  626.     (set BlankersDir (tackon ModulesDir "Blankers"))
  627.     (set BlankStoreDir (tackon ModStoreDir "ModuleStorage"))
  628.     (set LibsDir (tackon MCXDir "libs"))
  629.     (set RexxDir (tackon MCXDir "Rexx"))
  630. )
  631. (
  632.     (set ServerDir
  633.         (askdir
  634.             (prompt (#spread-drawer "Server"))
  635.             (default "SYS:WBStartUp")
  636.             (help @askdir-help)
  637.         )
  638.     )
  639.  
  640.     (set PrefsDir
  641.         (askdir
  642.             (prompt (#spread-drawer "Preferences"))
  643.             (default "SYS:Prefs")
  644.             (help @askdir-help)
  645.         )
  646.     )
  647.  
  648.     (set ModulesDir
  649.         (askdir
  650.             (prompt (#spread-drawer "Modules"))
  651.             (default "DEVS:")
  652.             (help @askdir-help)
  653.         )
  654.     )
  655.  
  656.     (set ModStoreDir
  657.         (askdir
  658.             (prompt (#spread-drawer "ModuleStorage"))
  659.             (default "Work:")
  660.             (help @askdir-help)
  661.         )
  662.     )
  663.  
  664.     (set RegisterDir
  665.         (askdir
  666.             (prompt (#spread-drawer "MagicCX-Register"))
  667.             (default "SYS:Tools")
  668.             (help @askdir-help)
  669.         )
  670.     )
  671.  
  672.     (set BlankersDir (tackon ModulesDir "Blankers"))
  673.     (set BlankStoreDir (tackon ModStoreDir "ModuleStorage"))
  674.     (set LibsDir "libs:")
  675.     (set RexxDir "REXX:")
  676. ))
  677.  
  678.  
  679. ;========================================================
  680. ; Get IconTypes
  681.  
  682. (set IconType
  683.         (askchoice
  684.             (prompt #icon-types)
  685.             (help @askchoice-help)
  686.             (choices
  687.                 #icon-magicwb
  688.                 #icon-normal
  689.             )
  690.             (default 0)
  691.         )
  692. )
  693.  
  694.  
  695.  
  696. (complete 6)
  697.  
  698. ;========================================================
  699. ; Set IconFile
  700.  
  701.  
  702. (textfile
  703.     (dest "RAM:SpreadIcon")
  704.     (append ".KEY iconfile/A,icon/A,dest/A\n.BRA {\n.KET }\nMakeDir \"T:Icon\"\nRAM:LhX x {iconfile} {icon} \"t:Icon/\"\nRAM:FreeIconPos \"t:Icon/{icon}\"\nCopy \"t:Icon/{icon}\" \"{dest}\"\nDelete \"T:Icon\" ALL\n")
  705. )
  706.  
  707. (protect "RAM:SpreadIcon" "+r +w +e +d +s")
  708.  
  709. (if (= IconType 0)
  710. (
  711.     (set IconFile1 "RAM:LhX x /Icons/Icons8.lha %s \"%s/\"")
  712.     (set IconFile2 "RAM:SpreadIcon /Icons/Icons8.lha %s \"%s\"")
  713. )
  714. (
  715.     (set IconFile1 "RAM:LhX x /Icons/Icons4.lha %s \"%s/\"")
  716.     (set IconFile2 "RAM:SpreadIcon /Icons/Icons4.lha %s \"%s\"")
  717. ))
  718.  
  719.  
  720.  
  721. ;========================================================
  722. ; Create Directory
  723.  
  724. (if (= InstallType 0)
  725. (
  726.     (makedir MCXDir
  727.         (prompt #create-magiccx-dir)
  728.         (help @makedir-help)
  729.     )
  730.  
  731.     (if (= IconType 0)
  732.     (
  733.         (run IconFile1 ("RAM:LhX x /Icons/Icons8.lha MagicCX.info \"%s//\"" MCXDir))
  734.     ))
  735.  
  736.     (if (= IconType 1)
  737.     (
  738.         (run IconFile1 ("RAM:LhX x /Icons/Icons4.lha MagicCX.info \"%s//\"" MCXDir))
  739.     ))
  740. ))
  741.  
  742.  
  743.  
  744.  
  745. ;========================================================
  746. ; Copy Server program
  747.  
  748. (working (#unpacking "Server"))
  749.  
  750. (run "RAM:LhX x /Server/Server.lha RAM:")
  751.  
  752. (if (= InstallType 0)
  753. (
  754.     (makedir (tackon MCXDir "Server"))
  755.     (run (IconFile1 "Server.info" MCXDir))
  756. ))
  757.  
  758. (copyfiles
  759.     (prompt (#installing "Server"))
  760.     (help @copyfiles-help)
  761.     (source "RAM:MCX")
  762.     (dest ServerDir)
  763. )
  764.  
  765. (if (= InstallType 0)
  766. (
  767.     (run (IconFile1 "Server/MCX.info" MCXDir))
  768. )
  769. (
  770.     (execute (IconFile2 "Server/MCX.info" ServerDir))
  771. ))
  772.  
  773. (complete 12)
  774.  
  775.  
  776. ;
  777. ; Install KeyFile
  778. ;
  779.  
  780. (if (exists "/Server/MCX.key")
  781. (
  782.     (message #do-install-key)
  783.  
  784.     (if (exists "ENV:KEYPATH")
  785.     (
  786.         (set KeyPath (getenv "KEYPATH"))
  787.     )
  788.     (
  789.         (set KeyPath "S:")
  790.     ))
  791.  
  792.     (copyfiles
  793.         (prompt (#installing "KeyFile"))
  794.         (help @copyfiles-help)
  795.         (source "/Server/MCX.key")
  796.         (dest KeyPath)
  797.     )
  798. ))
  799.  
  800.  
  801.  
  802.  
  803. ;
  804. ; Copy WBStartUp icon
  805. ;
  806.  
  807. (if (= InstallType 0)
  808. (
  809.     (makedir (tackon MCXDir "WBStartUp"))
  810.  
  811.     (run (IconFile1 "WBStartUp.info" MCXDir))
  812.     (run (IconFile1 "WBStartUp/MCX.info" MCXDir))
  813.  
  814.  
  815.     (complete 18)
  816.  
  817.     ;
  818.     ; Launch server at startup?
  819.     ;
  820.  
  821.     (if (askbool
  822.             (prompt #install-atboot)
  823.             (help @askbool-help)
  824.         )
  825.     (
  826.  
  827.         (copyfiles
  828.             (prompt #install-wbstartboot)
  829.             (help @copyfiles-help)
  830.             (source ("%s/WBStartUp/MCX.info" MCXDir))
  831.             (dest "SYS:WBStartUp")
  832.         )
  833.     ))
  834. ))
  835.  
  836.  
  837. (complete 24)
  838.  
  839.  
  840. ;========================================================
  841. ; Install Preferences program
  842.  
  843. (working (#unpacking "Preferences"))
  844.  
  845. (run "RAM:LhX x /Prefs/Prefs.lha RAM:")
  846.  
  847. (if (= InstallType 0)
  848. (
  849.     (makedir (tackon MCXDir "Prefs"))
  850.     (run (IconFile1 "Prefs.info" MCXDir))
  851. ))
  852.  
  853. (copyfiles
  854.     (prompt (#installing "Preferences"))
  855.     (help @copyfiles-help)
  856.     (source "RAM:MCX")
  857.     (dest PrefsDir)
  858. )
  859.  
  860. (if (= InstallType 0)
  861. (
  862.     (run (IconFile1 "Prefs/MCX.info" MCXDir))
  863. )
  864. (
  865.     (execute (IconFile2 "Prefs/MCX.info" PrefsDir))
  866. ))
  867.  
  868. (run "Delete RAM:MCX")
  869.  
  870.  
  871. (complete 30)
  872.  
  873. ;========================================================
  874. ; Install libraries
  875.  
  876. (working (#unpacking "libraries"))
  877.  
  878. (run "RAM:LhX x /libs/libs.lha RAM:")
  879.  
  880. (if (= InstallType 0)
  881. (
  882.     (makedir (tackon MCXDir "libs"))
  883. ))
  884.  
  885. (copyfiles
  886.     (prompt (#installing "mcxgui.library"))
  887.     (help @copyfiles-help)
  888.     (source "RAM:mcx.library")
  889.     (dest LibsDir)
  890. )
  891.  
  892. (copyfiles
  893.     (prompt (#installing "mcxgui.library"))
  894.     (help @copyfiles-help)
  895.     (source "RAM:mcxgui.library")
  896.     (dest LibsDir)
  897. )
  898.  
  899. (copyfiles
  900.     (prompt (#installing "mcxblanker.library"))
  901.     (help @copyfiles-help)
  902.     (source "RAM:mcxblanker.library")
  903.     (dest LibsDir)
  904. )
  905.  
  906. (complete 36)
  907.  
  908. ;
  909. ; Older Version than V38 of asl.library?
  910. ;
  911.  
  912. (if (< (/ (getversion "asl.library" (resident)) 65536) 38)
  913. (
  914.     (message #old-asl)
  915.  
  916.     (copylib
  917.         (prompt (#installing "reqtools.library"))
  918.         (help @copylib-help)
  919.         (source "RAM:reqtools.library")
  920.         (dest "LIBS:")
  921.     )
  922. ))
  923.  
  924.  
  925. (complete 42)
  926.  
  927.  
  928. (run "Delete RAM:mcx.library")
  929. (run "Delete RAM:mcxgui.library")
  930. (run "Delete RAM:mcxblanker.library")
  931. (run "Delete RAM:reqtools.library")
  932.  
  933.  
  934. ;========================================================
  935. ; Install Registration Program
  936.  
  937.  
  938. (working (#unpacking #sasgregister))
  939.  
  940. (run "RAM:LhX x /Tools/Register.lha RAM:")
  941.  
  942. (if (= InstallType 0)
  943. (
  944.     (makedir (tackon MCXDir "Tools"))
  945.     (run (IconFile1 "Tools.info" MCXDir))
  946. ))
  947.  
  948. (copyfiles
  949.     (prompt (#installing #sasgregister))
  950.     (help @copyfiles-help)
  951.     (source "RAM:MagicCX-Register")
  952.     (dest RegisterDir)
  953. )
  954.  
  955.  
  956. (if (= InstallType 0)
  957. (
  958.     (run (IconFile1 "Tools/MagicCX-Register.info" MCXDir))
  959. )
  960. (
  961.     (execute (IconFile2 "Tools/MagicCX-Register.info" RegisterDir))
  962. ))
  963.  
  964. (run "Delete RAM:MagicCX-Register")
  965.  
  966.  
  967. (complete 48)
  968.  
  969.  
  970. ;========================================================
  971. ; Install Modules Manager
  972.  
  973. (if (> (/ (getversion) 65536) 38)
  974. (
  975.     (if (askbool
  976.         (prompt #do-install-manager)
  977.         (help @askbool-help)
  978.     )
  979.     (
  980.         (if (= InstallType 1)
  981.         (
  982.             (set ModManDir
  983.                 (askdir
  984.                     (prompt (#spread-drawer "ModulesManager"))
  985.                     (default "SYS:Tools")
  986.                     (help @askdir-help)
  987.                 )
  988.             )
  989.         ))
  990.  
  991.         (working (#unpacking "Modules Manager"))
  992.         (run "RAM:LhX x /Tools/ModulesManager.lha RAM:")
  993.  
  994.         (copyfiles
  995.             (prompt (#installing "Modules Manager"))
  996.             (help @copyfiles-help)
  997.             (source "RAM:ModulesManager")
  998.             (dest ModManDir)
  999.         )
  1000.  
  1001.         (if (= InstallType 0)
  1002.         (
  1003.             (run (IconFile1 "Tools/ModulesManager.info" MCXDir))
  1004.         )
  1005.         (
  1006.             (execute (IconFile2 "Tools/ModulesManager.info" ModManDir))
  1007.         ))
  1008.  
  1009.         (run "Delete RAM:ModulesManager")
  1010.     ))
  1011. ))
  1012.  
  1013. (complete 54)
  1014.  
  1015. ;========================================================
  1016. ; Create Modules directories
  1017.  
  1018. (if (= InstallType 0)
  1019. (
  1020.     (makedir (tackon MCXDir "Modules")
  1021.         (prompt #create-modules-dir)
  1022.         (help @makedir-help)
  1023.     )
  1024.  
  1025.     (run (IconFile1 "Modules.info" MCXDir))
  1026. ))
  1027.  
  1028. (if (= InstallType 0)
  1029. (
  1030.     (makedir (tackon MCXDir "Modules/Blankers")
  1031.         (prompt #create-blankers-dir)
  1032.         (help @makedir-help)
  1033.     )
  1034. )
  1035. (
  1036.     (makedir BlankersDir
  1037.         (prompt #create-blankers-dir)
  1038.         (help @makedir-help)
  1039.     )
  1040. ))
  1041.  
  1042. (if (= InstallType 0)
  1043. (
  1044.     (run (IconFile1 "Modules/Blankers.info" MCXDir))
  1045. )
  1046. (
  1047.     (execute (IconFile2 "Modules/Blankers.info" ModulesDir))
  1048. ))
  1049.  
  1050. (if (= InstallType 0)
  1051. (
  1052.     (makedir (tackon MCXDir "ModuleStorage")
  1053.         (prompt #create-modules-dir2)
  1054.         (help @makedir-help)
  1055.     )
  1056.  
  1057.     (run (IconFile1 "ModuleStorage.info" MCXDir))
  1058. ))
  1059.  
  1060. (if (= InstallType 0)
  1061. (
  1062.     (makedir (tackon MCXDir "ModuleStorage/Blankers")
  1063.         (prompt #create-blankers-dir2)
  1064.         (help @makedir-help)
  1065.     )
  1066. )
  1067. (
  1068.     (makedir BlankStoreDir
  1069.         (prompt #create-blankers-dir2)
  1070.         (help @makedir-help)
  1071.     )
  1072. ))
  1073.  
  1074. (if (= InstallType 0)
  1075. (
  1076.     (run (IconFile1 "ModuleStorage/Blankers.info" MCXDir))
  1077. )
  1078. (
  1079.     (execute (IconFile2 "ModuleStorage/Blankers.info" ModStoreDir))
  1080. ))
  1081.  
  1082.  
  1083. (complete 60)
  1084.  
  1085.  
  1086. ;========================================================
  1087. ; Which modules to install?
  1088.  
  1089. (set Modules1
  1090.     (askoptions
  1091.         (prompt #select-modules-1)
  1092.         (help @askoptions-help)
  1093.         (choices
  1094.             "Alarm"
  1095.             "Analog Clock"
  1096.             "ARexx"
  1097.             "AssignWedge"
  1098.             "Calendar"
  1099.             "Cycle2Menu"
  1100.             "ExplodingWindows"
  1101.             "FKeys"
  1102.             "Formatter"
  1103.             "Grabber"
  1104.             "LockWindows"
  1105.             "MoveSizer"
  1106.             "NewString"
  1107.             "PhoneBill"
  1108.             "PointerPatch"
  1109.             "RCS"
  1110.             "ScreenSelect"
  1111.             "TagScreens"
  1112.             "ToolAlias"
  1113.             "UnixDirs"
  1114.         )
  1115.         (default -1)
  1116.     )
  1117. )
  1118.  
  1119. (set Modules2
  1120.     (askoptions
  1121.         (prompt #select-modules-1)
  1122.         (help @askoptions-help)
  1123.         (choices
  1124.             "WBGauge"
  1125.         )
  1126.         (default -1)
  1127.     )
  1128. )
  1129.  
  1130.  
  1131.  
  1132. ;========================================================
  1133. ; Install modules?
  1134.  
  1135. (if (OR (> Modules1 0) (> Modules2 0))
  1136. (
  1137.     (working (#unpacking #modules))
  1138.     (run "RAM:LhX x /Modules/Modules.lha RAM:")
  1139. ))
  1140.     ; Handle first modules page
  1141.  
  1142.  
  1143. (if (> Modules1 0)
  1144. (
  1145.         ; Which AssignWedge Module to install?
  1146.  
  1147.     (if (IN Modules1 3)
  1148.     (
  1149.         (set AWedgeType
  1150.             (askchoice
  1151.                 (prompt #awedge-module)
  1152.                 (help #awedge-module-help)
  1153.                 (choices
  1154.                     "Intuition"
  1155.                     "ReqTools"
  1156.                 )
  1157.                 (default 0)
  1158.             )
  1159.         )
  1160.  
  1161.             ; Rename old or leave as is
  1162.  
  1163.         (if (= AWedgeType 1)
  1164.         (
  1165.             (run "Delete RAM:AssignWedge.mcxmod")
  1166.             (run "Rename RAM:AssignWedgeRT.mcxmod RAM:AssignWedge.mcxmod")
  1167.  
  1168.             (run "RAM:LhX x /libs/libs.lha RAM:")
  1169.  
  1170.             (copylib
  1171.                 (prompt (#installing "reqtools.library"))
  1172.                 (help @copylib-help)
  1173.                 (source "RAM:reqtools.library")
  1174.                 (dest "LIBS:")
  1175.                 (confirm)
  1176.             )
  1177.  
  1178.             (run "Delete RAM:mcx.library")
  1179.             (run "Delete RAM:mcxgui.library")
  1180.             (run "Delete RAM:mcxblanker.library")
  1181.             (run "Delete RAM:reqtools.library")
  1182.         ))
  1183.     ))
  1184.  
  1185.  
  1186.  
  1187.  
  1188.         ; Run module installation for first page
  1189.  
  1190.     (set CurrModule 0)
  1191.     (set MaxModules 20)
  1192.     (while (< CurrModule MaxModules)
  1193.     (
  1194.         (if (IN Modules1 CurrModule)
  1195.         (
  1196.             (set ModuleName
  1197.                 (select CurrModule
  1198.                     "Alarm.mcxmod"
  1199.                     "AnalogClock.mcxmod"
  1200.                     "ARexx.mcxmod"
  1201.                     "AssignWedge.mcxmod"
  1202.                     "Calendar.mcxmod"
  1203.                     "Cycle2Menu.mcxmod"
  1204.                     "ExplodingWindows.mcxmod"
  1205.                     "FKeys.mcxmod"
  1206.                     "Formatter.mcxmod"
  1207.                     "Grabber.mcxmod"
  1208.                     "LockWindows.mcxmod"
  1209.                     "MoveSizer.mcxmod"
  1210.                     "NewString.mcxmod"
  1211.                     "PhoneBill.mcxmod"
  1212.                     "PointerPatch.mcxmod"
  1213.                     "RCS.mcxrxmod"
  1214.                     "ScreenSelect.mcxmod"
  1215.                     "TagScreens.mcxmod"
  1216.                     "ToolAlias.mcxmod"
  1217.                     "UnixDirs.mcxmod"
  1218.                     ""
  1219.                 )
  1220.             )
  1221.  
  1222.             (if (exists (tackon ModStoreDir ModuleName))
  1223.             (
  1224.                 (copyfiles
  1225.                     (prompt (#installing ModuleName))
  1226.                     (help @copyfiles-help)
  1227.                     (source ("RAM:%s" ModuleName))
  1228.                     (dest ModStoreDir)
  1229.                 )
  1230.             )
  1231.             (
  1232.                 (copyfiles
  1233.                     (prompt (#installing ModuleName))
  1234.                     (help @copyfiles-help)
  1235.                     (source ("RAM:%s" ModuleName))
  1236.                     (dest ModulesDir)
  1237.                 )
  1238.                 (if (= InstallType 0)
  1239.                 (
  1240.                     (run (IconFile1 ("Modules/%s.info" ModuleName) MCXDir))
  1241.                 )
  1242.                 (
  1243.                     (execute (IconFile2 ("Modules/%s.info" ModuleName) ModulesDir))
  1244.                 ))
  1245.             ))
  1246.         ))
  1247.         (set CurrModule (+ CurrModule 1))
  1248.     ))
  1249. ))
  1250.  
  1251.  
  1252.     ; Head for second page
  1253.  
  1254. (if (> Modules2 0)
  1255. (
  1256.         ; Run module installation for first page
  1257.  
  1258.     (set CurrModule 0)
  1259.     (set MaxModules 1)
  1260.     (while (< CurrModule MaxModules)
  1261.     (
  1262.         (if (IN Modules2 CurrModule)
  1263.         (
  1264.             (set ModuleName
  1265.                 (select CurrModule
  1266.                     "WBGauge.mcxmod"
  1267.                     ""
  1268.                 )
  1269.             )
  1270.  
  1271.             (if (exists (tackon ModStoreDir ModuleName))
  1272.             (
  1273.                 (copyfiles
  1274.                     (prompt (#installing ModuleName))
  1275.                     (help @copyfiles-help)
  1276.                     (source ("RAM:%s" ModuleName))
  1277.                     (dest ModStoreDir)
  1278.                 )
  1279.             )
  1280.             (
  1281.                 (copyfiles
  1282.                     (prompt (#installing ModuleName))
  1283.                     (help @copyfiles-help)
  1284.                     (source ("RAM:%s" ModuleName))
  1285.                     (dest ModulesDir)
  1286.                 )
  1287.                 (if (= InstallType 0)
  1288.                 (
  1289.                     (run (IconFile1 ("Modules/%s.info" ModuleName) MCXDir))
  1290.                 )
  1291.                 (
  1292.                     (execute (IconFile2 ("Modules/%s.info" ModuleName) ModulesDir))
  1293.                 ))
  1294.             ))
  1295.         ))
  1296.         (set CurrModule (+ CurrModule 1))
  1297.     ))
  1298. ))
  1299.  
  1300. (run "Delete RAM:#?.mcx#?")
  1301.  
  1302.  
  1303.  
  1304.  
  1305.     ;
  1306.     ; User installed RCS, check for scripts
  1307.     ;
  1308.  
  1309. (if (IN Modules1 15)
  1310. (
  1311.     (if (askbool
  1312.         (prompt #install-scripts)
  1313.         (help @askbool-help)
  1314.     )
  1315.     (
  1316.         (if (= InstallType 0)
  1317.         (
  1318.             (makedir RexxDir)
  1319.         ))
  1320.  
  1321.         (set Scripts
  1322.             (askoptions
  1323.                 (prompt #select-scripts)
  1324.                 (help @askoptions-help)
  1325.                 (choices
  1326.                     "CygnusEd"
  1327.                     "TurboText"
  1328.                     "GoldED"
  1329.                     "Shell"
  1330.                 )
  1331.                 (default -1)
  1332.             )
  1333.         )
  1334.  
  1335.  
  1336.         (set ScriptDir
  1337.             (askdir
  1338.                 (prompt #select-scriptdir)
  1339.                 (help @askdir-help)
  1340.                 (default RexxDir)
  1341.             )
  1342.         )
  1343.  
  1344.         (working (#unpacking #scripts))
  1345.         (run "RAM:LhX x /Rexx/Scripts.lha RAM:")
  1346.  
  1347.             ;
  1348.             ; Install CED
  1349.             ;
  1350.  
  1351.         (if (IN Scripts 0)
  1352.         (
  1353.             (copyfiles
  1354.                 (prompt #install-ced)
  1355.                 (help @copyfiles-help)
  1356.                 (source "RAM:")
  1357.                 (pattern "#?.ced")
  1358.                 (dest ScriptDir)
  1359.             )
  1360.         ))
  1361.  
  1362.             ;
  1363.             ; Install TurboText
  1364.             ;
  1365.  
  1366.         (if (IN Scripts 1)
  1367.         (
  1368.             (copyfiles
  1369.                 (prompt #install-ttx)
  1370.                 (help @copyfiles-help)
  1371.                 (source "RAM:")
  1372.                 (pattern "#?.ttx")
  1373.                 (dest ScriptDir)
  1374.             )
  1375.         ))
  1376.  
  1377.             ;
  1378.             ; Install GoldED
  1379.             ;
  1380.  
  1381.         (if (IN Scripts 2)
  1382.         (
  1383.             (copyfiles
  1384.                 (prompt #install-ged)
  1385.                 (help @copyfiles-help)
  1386.                 (source "RAM:")
  1387.                 (pattern "#?.ged")
  1388.                 (dest ScriptDir)
  1389.             )
  1390.         ))
  1391.  
  1392.             ;
  1393.             ; Install Plain
  1394.             ;
  1395.  
  1396.         (if (IN Scripts 3)
  1397.         (
  1398.             (copyfiles
  1399.                 (prompt #install-rexx)
  1400.                 (help @copyfiles-help)
  1401.                 (source "RAM:")
  1402.                 (pattern "#?.rexx")
  1403.                 (dest ScriptDir)
  1404.             )
  1405.         ))
  1406.  
  1407.         (run "Delete RAM:#?.ced")
  1408.         (run "Delete RAM:#?.ged")
  1409.         (run "Delete RAM:#?.ttx")
  1410.         (run "Delete RAM:#?.rexx")
  1411.     ))
  1412.  
  1413.  
  1414.  
  1415.         ;
  1416.         ; Install RCS2HST?
  1417.         ;
  1418.  
  1419.     (if (askbool
  1420.         (prompt #do-install-rcs2hst)
  1421.         (help @askbool-help)
  1422.     )
  1423.     (
  1424.         (if (= InstallType 1)
  1425.         (
  1426.             (set RCS2HSTDir
  1427.                 (askdir
  1428.                     (prompt (#spread-drawer "RCS2HST"))
  1429.                     (default "SYS:Tools")
  1430.                     (help @askdir-help)
  1431.                 )
  1432.             )
  1433.         ))
  1434.  
  1435.         (working (#unpacking "RCS2HST"))
  1436.         (run "RAM:LhX x /Tools/RCS2HST RAM:")
  1437.  
  1438.         (copyfiles
  1439.             (prompt (#installing "RCS2HST"))
  1440.             (help @copyfiles-help)
  1441.             (source "RAM:RCS2HST")
  1442.             (dest RCS2HSTDir)
  1443.         )
  1444.  
  1445.         (if (= InstallType 0)
  1446.         (
  1447.             (run (IconFile1 "Tools/RCS2HST.info" MCXDir))
  1448.         )
  1449.         (
  1450.             (execute (IconFile2 "Tools/RCS2HST.info" RCS2HSTDir))
  1451.         ))
  1452.         (run "Delete RAM:RCS2HST#?")
  1453.     ))
  1454. ))
  1455.  
  1456.  
  1457.  
  1458.  
  1459. (complete 75)
  1460.  
  1461.  
  1462.  
  1463.  
  1464. ;========================================================
  1465. ; Which blankers to install?
  1466.  
  1467. (set Blankers
  1468.     (askoptions
  1469.         (prompt #select-blankers-1)
  1470.         (help @askoptions-help)
  1471.         (choices
  1472.             "ASwarm"
  1473.             "Clock"
  1474.             "Dragon"
  1475.             "Executor"
  1476.             "Flying Toasters"
  1477.             "Fractals"
  1478.             "Goats"
  1479.             "Interference"
  1480.             "Life"
  1481.             "Lightning"
  1482.             "LineDawn"
  1483.             "Maze"
  1484.             "Plasma"
  1485.             "Puzzle"
  1486.             "Species"
  1487.             "Spider"
  1488.             "Spliner"
  1489.             "Stars"
  1490.             "Text"
  1491.             "Worms"
  1492.         )
  1493.         (default -1)
  1494.     )
  1495. )
  1496.  
  1497.  
  1498. ;========================================================
  1499. ; Install Blankers?
  1500.  
  1501. (if (> Blankers 0)
  1502. (
  1503.     (working (#unpacking #blankers))
  1504.     (run "RAM:LhX x /Modules/Blankers.lha RAM:")
  1505.  
  1506.     (if (> Blankers 0)
  1507.     (
  1508.         (set CurrBlanker 0)
  1509.         (set MaxBlankers 20)
  1510.         (while (< CurrBlanker MaxBlankers)
  1511.         (
  1512.             (if (IN Blankers CurrBlanker)
  1513.             (
  1514.                 (set BlankerName
  1515.                     (select CurrBlanker
  1516.                         "ASwarm.mcxblk"
  1517.                         "Clock.mcxblk"
  1518.                         "Dragon.mcxblk"
  1519.                         "Executor.mcxblk"
  1520.                         "FlyingToasters.mcxblk"
  1521.                         "Fractals.mcxblk"
  1522.                         "Goats.mcxblk"
  1523.                         "Interference.mcxblk"
  1524.                         "Life.mcxblk"
  1525.                         "Lightning.mcxblk"
  1526.                         "LineDawn.mcxblk"
  1527.                         "Maze.mcxblk"
  1528.                         "Plasma.mcxblk"
  1529.                         "Puzzle.mcxblk"
  1530.                         "Species.mcxblk"
  1531.                         "Spider.mcxblk"
  1532.                         "Spliner.mcxblk"
  1533.                         "Stars.mcxblk"
  1534.                         "Text.mcxblk"
  1535.                         "Worms.mcxblk"
  1536.                         ""
  1537.                     )
  1538.                 )
  1539.  
  1540.                 (if (exists (tackon BlankStoreDir BlankerName))
  1541.                 (
  1542.                     (copyfiles
  1543.                         (prompt (#installing BlankerName))
  1544.                         (help @copyfiles-help)
  1545.                         (source ("RAM:%s" BlankerName))
  1546.                         (dest BlankStoreDir)
  1547.                     )
  1548.                 )
  1549.                 (
  1550.                     (copyfiles
  1551.                         (prompt (#installing BlankerName))
  1552.                         (help @copyfiles-help)
  1553.                         (source ("RAM:%s" BlankerName))
  1554.                         (dest BlankersDir)
  1555.                     )
  1556.                     (if (= InstallType 0)
  1557.                     (
  1558.                         (run (IconFile1 ("Modules/Blankers/%s.info" BlankerName) MCXDir))
  1559.                     )
  1560.                     (
  1561.                         (execute (IconFile2 ("Modules/Blankers/%s.info" BlankerName) BlankersDir))
  1562.                     ))
  1563.                 ))
  1564.             ))
  1565.             (set CurrBlanker (+ CurrBlanker 1))
  1566.         ))
  1567.     ))
  1568.  
  1569.     (run "Delete RAM:#?.mcx#?")
  1570. ))
  1571.  
  1572.  
  1573. (complete 90)
  1574.  
  1575.  
  1576.  
  1577. ;========================================================
  1578. ; Install Locale
  1579.  
  1580. (if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
  1581. (
  1582.         ;
  1583.         ; Select language(s)
  1584.         ;
  1585.  
  1586.     (if (= default_lang 256)
  1587.     (
  1588.         (set default_used 0)
  1589.     )
  1590.  
  1591.         ; Some might not be available!
  1592.  
  1593.     (
  1594.         (set default_used
  1595.             (select default_lang
  1596.                 0
  1597.                 1
  1598.                 2
  1599.                 4
  1600.                 8
  1601.             )
  1602.         )
  1603.     ))
  1604.  
  1605.     (set Lang
  1606.         (askoptions
  1607.             (prompt #install-lang)
  1608.             (help #which-language-help)
  1609.             (choices
  1610.                 #GermanLan
  1611.                 #SwedishLan
  1612.                 #FrenchLan
  1613.                 #DanishLan
  1614.             )
  1615.             (default default_used)
  1616.         )
  1617.     )
  1618.  
  1619.  
  1620.     (set CurrLocale 0)
  1621.     (set MaxLocale 4)
  1622.     (while (< CurrLocale MaxLocale)
  1623.     (
  1624.         (if (IN Lang CurrLocale)
  1625.         (
  1626.             (set LocaleMsg
  1627.                 (select CurrLocale
  1628.                     #germanloc
  1629.                     #swedishloc
  1630.                     #frenchloc
  1631.                     #danishloc
  1632.                     ""
  1633.                 )
  1634.             )
  1635.  
  1636.             (set LocaleFile
  1637.                 (select CurrLocale
  1638.                     "/locale/deutsch/Catalogs"
  1639.                     "/locale/svenska/Catalogs"
  1640.                     "/locale/français/Catalogs"
  1641.                     "/locale/dansk/Catalogs"
  1642.                     ""
  1643.                 )
  1644.             )
  1645.  
  1646.             (working LocaleMsg)
  1647.             (run ("RAM:LhX x %s LOCALE:" LocaleFile))
  1648.         ))
  1649.  
  1650.         (set CurrLocale (+ CurrLocale 1))
  1651.     ))
  1652.  
  1653.     (message #own-lang)
  1654. ))
  1655.  
  1656.  
  1657. (complete 93)
  1658.  
  1659.  
  1660. ;========================================================
  1661. ; Install Documentaion
  1662.  
  1663.  
  1664. (if
  1665.     (askbool
  1666.         (prompt #do-install-doc)
  1667.         (help @askbool-help)
  1668.     )
  1669. (
  1670.     (if (= InstallType 1)
  1671.     (
  1672.         (set DocsDir
  1673.             (askdir
  1674.                 (prompt (#spread-drawer "Docs"))
  1675.                 (default "Work:")
  1676.                 (help @askdir-help)
  1677.             )
  1678.         )
  1679.     ))
  1680.  
  1681.         ;
  1682.         ; Create directory
  1683.         ;
  1684.  
  1685.     (if (= InstallType 0)
  1686.     (
  1687.         (makedir (tackon MCXDir "Docs")
  1688.             (prompt #create-docs-dir)
  1689.         )
  1690.  
  1691.         (run (IconFile1 "Docs.info" MCXDir))
  1692.     ))
  1693.  
  1694.         ;
  1695.         ; Ask language
  1696.         ;
  1697.  
  1698.     (set DocLang
  1699.         (askchoice
  1700.             (prompt #doc-lang)
  1701.             (help @askchoice-help)
  1702.             (choices
  1703.                 #EnglishLan
  1704.                 #GermanLan
  1705.             )
  1706.             (if (= default_lang 256)
  1707.             (
  1708.                 (default 0)
  1709.             )
  1710.  
  1711.                 ; Some might not be available!
  1712.  
  1713.             (
  1714.                 (default
  1715.                     (select default_lang
  1716.                         0
  1717.                         1
  1718.                         0
  1719.                         0
  1720.                         0
  1721.                     )
  1722.                 )
  1723.             ))
  1724.         )
  1725.     )
  1726.  
  1727.         ;
  1728.         ; Get name of docfile
  1729.         ;
  1730.  
  1731.     (set DocFileName
  1732.         (select DocLang
  1733.             "MCXENG.guide"
  1734.             "MCXGER.guide"
  1735.             ""
  1736.         )
  1737.     )
  1738.  
  1739.  
  1740.         ;
  1741.         ; AmigaGuide
  1742.         ;
  1743.  
  1744.     (working (#unpacking #amigaguidedoc))
  1745.     (run ("RAM:LhX x /Docs/Guide.lha %s RAM:" DocFileName))
  1746.  
  1747.     (copyfiles
  1748.         (prompt (#installing #amigaguidedoc))
  1749.         (help @copyfile-help)
  1750.         (source ("RAM:%s" DocFileName))
  1751.         (dest DocsDir)
  1752.         (newname "MagicCX.guide")
  1753.     )
  1754.  
  1755.     (if (= InstallType 0)
  1756.     (
  1757.         (run (IconFile1 "Docs/MagicCX.guide.info" MCXDir))
  1758.     )
  1759.     (
  1760.         (execute (IconFile2 "Docs/MagicCX.guide.info" DocsDir))
  1761.     ))
  1762.     (run "Delete RAM:MCX*.guide")
  1763. ))
  1764.  
  1765.  
  1766. (complete 98)
  1767.  
  1768.  
  1769. ;========================================================
  1770. ; Add Assign
  1771.  
  1772. (if (= InstallType 0)
  1773. (
  1774.     (message #add-assign)
  1775.  
  1776.     (makeassign "MagicCX" MCXDir)
  1777.     (startup "MagicCX"
  1778.         (command ("Assign MagicCX: \"%s\"\n" MCXDir))
  1779.         (prompt #adding-assign)
  1780.         (help @adding-help)
  1781.     )
  1782. )
  1783. (
  1784.     (message #add-env)
  1785.  
  1786.     (startup "MagicCX"
  1787.         (command ("SetEnv MagicCX/MCXSERVERPATH \"%s\"\n" ServerDir))
  1788.         (command ("SetEnv MagicCX/MCXPREFSPATH \"%s\"\n" PrefsDir))
  1789.         (command ("SetEnv MagicCX/MCXDOCSPATH \"%s\"\n" DocsDir))
  1790.         (command ("SetEnv MagicCX/MCXMODULESPATH \"%s\"\n" ModulesDir))
  1791.         (command ("SetEnv MagicCX/MCXMODSTOREPATH \"%s\"\n" ModStoreDir))
  1792.         (command ("SetEnv MagicCX/MCXMODMANPATH \"%s\"\n" ModManDir))
  1793.         (command ("SetEnv MagicCX/MCXREGPATH \"%s\"\n" RegisterDir))
  1794.         (prompt #adding-env)
  1795.         (help @adding-help)
  1796.     )
  1797. ))
  1798.  
  1799.  
  1800. ; ====================================================
  1801. ; Display warning if old version of MagicCX is running
  1802.  
  1803. (if (= (run "/C/CheckMCXExists") 0)
  1804. (
  1805.     (message #old-magiccx)
  1806. ))
  1807.  
  1808. (complete 100)
  1809.  
  1810.  
  1811. (if (= InstallType 0)
  1812. (
  1813.     (set @default-dest MCXDir)
  1814. )
  1815. (
  1816.     (set @default-dest "Spread")
  1817. ))
  1818.  
  1819. (run "Delete RAM:SpreadIcon")
  1820.  
  1821. (exit #exit-msg)
  1822.